﻿Imports Microsoft.Win32

Module Program

    Public Sub Main(ByVal args() As String)
        With My.Application.Log.DefaultFileLogWriter
            .Append = True
            .AutoFlush = True
            .Delimiter = ";"
            .IncludeHostName = True
            .Location = Logging.LogFileLocation.Custom
            .CustomLocation = FileHandler.SETTINGSPATH
            .TraceOutputOptions = TraceOptions.Timestamp
            .LogFileCreationSchedule = Logging.LogFileCreationScheduleOption.Daily
            .MaxFileSize = 100000
        End With

        Application.EnableVisualStyles()
        Application.DoEvents()
        If args Is Nothing Or args.Length <> 1 Then
            Application.Run(New OptionsDialog)
        Else
            Dim dlgWork As New ProgressDialog()
            dlgWork.ShowDialog(args(0))
        End If
    End Sub

End Module
